﻿Imports System.Data
Partial Class WebForm_Manage_ContactCreasys
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Dim bbl As WorkFlow.BBL.WFInfoBBL = New WorkFlow.BBL.WFInfoBBL()
            Dim dt As DataTable = bbl.GetInfoData(Session("dbName").ToString)
            If dt.Rows.Count > 0 Then

                lblContact.Text = dt.Rows(0)("CreasysInfo").ToString
            End If
        End If


    End Sub

End Class
